home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 283
- Top = 134
- Width = 400
- Height = 222
- BorderIcons = [biSystemMenu, biMinimize]
- Caption = 'Value Converter'
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'System'
- Font.Style = []
- Menu = MainMenu1
- PixelsPerInch = 120
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 16
- object Label1: TLabel
- Left = 8
- Top = 32
- Width = 36
- Height = 16
- Caption = 'Input:'
- end
- object Label2: TLabel
- Left = 8
- Top = 152
- Width = 46
- Height = 16
- Caption = 'Output:'
- end
- object Edit1: TEdit
- Left = 64
- Top = 24
- Width = 65
- Height = 24
- TabOrder = 0
- end
- object Edit2: TEdit
- Left = 64
- Top = 144
- Width = 65
- Height = 24
- TabOrder = 1
- end
- object RadioGroup1: TRadioGroup
- Left = 144
- Top = 16
- Width = 145
- Height = 153
- Hint = 'Select format to convert to'
- Caption = 'Conversion'
- Items.Strings = (
- '&Celsius'
- '&Fahrenheit'
- '&Miles'
- '&Kilometers')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = RadioGroup1Click
- end
- object BitBtn1: TBitBtn
- Left = 8
- Top = 72
- Width = 121
- Height = 41
- Caption = '&Execute'
- TabOrder = 3
- OnClick = BitBtn1Click
- Kind = bkOK
- end
- object BitBtn2: TBitBtn
- Left = 296
- Top = 136
- Width = 89
- Height = 33
- Caption = 'E&xit'
- TabOrder = 4
- OnClick = BitBtn2Click
- Kind = bkClose
- end
- object ValueConverter1: TValueConverter
- Kind = FahrenConvert
- Left = 360
- Top = 8
- end
- object MainMenu1: TMainMenu
- Left = 360
- Top = 40
- object File1: TMenuItem
- Caption = '&File'
- object Execute1: TMenuItem
- Caption = '&Execute'
- OnClick = BitBtn1Click
- ShortCutText = 'Ctrl+E'
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Exit1: TMenuItem
- Caption = 'E&xit'
- OnClick = BitBtn2Click
- end
- end
- object Help1: TMenuItem
- Caption = '&Help'
- object Help2: TMenuItem
- Caption = '&Help'
- OnClick = Help2Click
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object About1: TMenuItem
- Caption = '&About...'
- OnClick = About1Click
- end
- end
- end
- end
-